home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 126-150 / scopedisk142 / loadimage / testdemo.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1995-03-19  |  518 b   |  25 lines
  1. /* A test program for the fancy demo.  To run, issue  */
  2. /* the command testdemo from fancy's command window   */
  3. arg code
  4.  
  5. address 'FancyDemo'
  6.  
  7. 'good'   /* a command */
  8. say 'rc=' rc 'result=' result
  9.  
  10. 'BAD'    /* another command */
  11. say 'rc=' rc 'result=' result
  12.  
  13. /* now request a result string (an extension in ARexx) */
  14. options results
  15. say 'Requesting results'
  16.  
  17. 'good'   /* the good command again */
  18. say 'rc=' rc 'result=' result
  19.  
  20.  
  21. /* try it with three arguments. */
  22. good job man
  23.  
  24. exit 10   /* return the argument */
  25.